/* rsbr005.p - Supplier Calendars Browse UI                                 */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.10 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 8.5      Created: 06/19/97    By: B. Pedersen    *J1TF*
 *    Revision: 8.5     Modified: 09/26/97    By: B. Pedersen    *J20C*
 *    Revision: 8.5     Modified: 01/31/99    By: Doug Norton    *M071*
 *    Revision: 9.0     Modified: 03/15/99    By: Mark Smith     *M0BF*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.10 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Supplier Calendars"

&SCOPED-DEFINE BR-NAME rs005
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE shop_cal
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (shop_site shop_hours[1] shop_hours[2] shop_hours[3] shop_hours[4] shop_hours[5] shop_hours[6] shop_hours[7])
&SCOPED-DEFINE Q-2ND-TABLE ls_mstr
&SCOPED-DEFINE Q-2ND-JOIN (ls_type = 'suppcal' and ls_addr = shop_site)
&SCOPED-DEFINE Q-2ND-FIELD-LIST ()
&SCOPED-DEFINE Q-NUM-TABLES 2

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.shop_site
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 shop_cal.shop_site
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-shop_site
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Supplier"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.shop_hours[1]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 shop_cal.shop_hours[1]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-shop_hours_1
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Sunday"
&SCOPED-DEFINE BR-FIELD-TYPE-2 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.shop_hours[2]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 shop_cal.shop_hours[2]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-shop_hours_2
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Monday"
&SCOPED-DEFINE BR-FIELD-TYPE-3 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.shop_hours[3]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 shop_cal.shop_hours[3]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-shop_hours_3
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Tuesday"
&SCOPED-DEFINE BR-FIELD-TYPE-4 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.shop_hours[4]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 shop_cal.shop_hours[4]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-shop_hours_4
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Wednesday"
&SCOPED-DEFINE BR-FIELD-TYPE-5 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.shop_hours[5]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 shop_cal.shop_hours[5]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-shop_hours_5
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Thursday"
&SCOPED-DEFINE BR-FIELD-TYPE-6 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.shop_hours[6]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 shop_cal.shop_hours[6]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-shop_hours_6
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Friday"
&SCOPED-DEFINE BR-FIELD-TYPE-7 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-8 b-1.shop_hours[7]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-8 shop_cal.shop_hours[7]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-8 tt-shop_hours_7
&SCOPED-DEFINE BR-K-COL-LABEL-8 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-8 "Saturday"
&SCOPED-DEFINE BR-FIELD-TYPE-8 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-8 FORMAT "->>,>>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-8 11

&SCOPED-DEFINE Q-NUM-FILT-VALS 8
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 11
&SCOPED-DEFINE BR-BROWSE-WIDTH 86
&SCOPED-DEFINE WHERE-CLAUSE shop_wkctr = '' and  shop_mch = ''
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
